home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / fixes.arc / WRITE.C < prev   
C/C++ Source or Header  |  1985-11-20  |  495b  |  34 lines
  1. #include <errno.h>
  2.  
  3. extern    long    gemdos();
  4.  
  5. int write(h, data, len)
  6.     int h;
  7.     char *data;
  8.     unsigned int len;
  9.     {
  10.     register long rv;
  11.  
  12.     rv = gemdos(0x40, h, ((unsigned long) len), data);
  13.     if(rv < 0)
  14.         errno = ((int) rv);
  15.     if(rv < len)
  16.         errno = EWRITF;
  17.     return(rv);
  18.     }
  19.  
  20. long lwrite(h, data, len)
  21.     int h;
  22.     char *data;
  23.     long len;
  24.     {
  25.     register long rv;
  26.  
  27.     rv = gemdos(0x40, h, len, data);
  28.     if(rv < 0)
  29.         errno = ((int) rv);
  30.     if(rv < len)
  31.         errno = EWRITF;
  32.     return(rv);
  33.     }
  34.